home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok42 / newinout / txt / newrealinout.def < prev    next >
Text File  |  1993-11-04  |  839b  |  33 lines
  1. (**********************************************************************
  2.  
  3. :Program.    NewRealInOut.def
  4. :Contens.    Real Ein- und Ausgabe für NewInOut.
  5. :Author.     Bernd Braun
  6. :Address.    Lippestr. 11, D-3300 Braunschweig
  7. :Phone.      0531/845498
  8. :Copyright.  Public Domain
  9. :Language.   Modula-2
  10. :Translator. M2Amiga A+L V3.3d
  11. :Imports.    NewInOut
  12. :History.    V1.0 25.Sep.1989 Erste lauffähige Version
  13.  
  14. ***********************************************************************)
  15.  
  16. DEFINITION MODULE NewRealInOut;
  17.  
  18.    FROM NewInOut IMPORT
  19.       FILE;
  20.  
  21.    VAR
  22.       realdone : BOOLEAN;
  23.  
  24.    PROCEDURE WriteRealFile ( file : FILE; Real : REAL; m, n : INTEGER );
  25.  
  26.    PROCEDURE WriteReal ( Real : REAL; m, n : INTEGER );
  27.  
  28.    PROCEDURE ReadRealFile ( file : FILE; VAR Real : REAL );
  29.  
  30.    PROCEDURE ReadReal ( VAR Real : REAL );
  31.  
  32. END NewRealInOut.
  33.